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Herselt , 29 februari 1984 


Beste Dai-gebruiker, 


Tot ор heden hebben wij uw bijdrage voor 1984 nog niet ontvangen. 
Wij zijn er van overtuigd dat U de volgende edities van Dainamic 
niet wil missen. 

Gelieve daarom zo vlug mogelijk uw contributie te storten op een 
van de volgende wijzen : 


- voor Belgie : - bankoverschrijving op nummer 230-004-5353-74 
Gen. Вапкт. Leuven t.n.v. Bruno Van Rompaey 
Bovenbosstraat 4 , 3044 Haasrode . 
- Eurocheque sturen naar bovenstaand adres, 


- voor Nederland : - overschrijving op Giro nummer 4083817 t.n.v. 
J.F. Van Dunne , Hoflaan 70 , 3062 JJ Rotterdam. 
tel : (010) 144 802 


met vriendelijke groeten 
de secretaris-ledenadministratie 


Bruno Van Rompaey 
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COLOFON 


DAInamic verschijnt tweemaandelijks. 
Abonnementsprijs is inbegrepen in de jaarlijkse 
contributie . 

Bij toetreding worden de verschenen nummers van de 
jaargang toegezonden. 

DAInamic redactie : 


Dirk Bonné wdw 
Freddy De Raedt Herman Bellekens 
Wilfried Hermans Frans Couwberghs 
René Rens Guido Govaerts 
Bruno Van Rompaey Daniël Govaerts 
Jef Verwimp Frank Druijff 

Willy Coremans 

Vormgeving : Ludo Van Mechelen. 





U wordt lid door storting van de contributie op het 
rekeningnr. 230-0045353-74 van de Generale 
Bankmaatschappij, Leuven, via bankinstelling of 
postgiro 

Het abonnement loopt van januari tot december. 


DAlnamic verschijnt de pare maanden. 
Bijdragen zijn steeds welkom. 





CORRESPONDENTIE ADRESSEN. 
Redactie en software bibliotheek 


Wilfried Hermans 
Mottaart 20 

3170 Herselt 

Tel. 014/54 59 74 


Kredietbank Herselt 
nr. 401-1009701-46 
BTW : 420.840.834 


Voor Nederland : 


GIRO : 4083817 
t.n.v. J.F. van Dunne’ 
Hoflaan 70 

3062 JJ ROTTERDAM 
: (010) 144802 


Lidgelden / Subscriptions 


Bruno Van Rompaey 
Bovenbosstraat 4 
B 3044 Haasrode 
ia 

: 016/46.10.85 Tel. 


Generale Bankmaatschappij Leuven 
nr. 230-0045353-74 


Inzendingen : Games & Strategy 


Frank Druijff 

's Gravendijkwal 5A 
NL 3021 EA Rotterdam 
Nederland 

tel. : 010/25.42.75 
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Herselt, december '83 


Beste leden, 


Met nummer 19 sluiten we onze jaargang '83. Een terugblik op de voorbije 
activiteiten gebeurde naar aanleiding van ons 3-jarig bestaan, dat hoeft 
dus niet meer. Een woordje van dank is echter altijd op zijn plaats : dank 
aan al diegenen die hun bijdragen leveren aan het DAInamic-gebeuren : de 
vaste kern ( die ondertussen al aardig uitgebreid is), de vaste correspon- 
denten en al die leden die af en toe eens een artikeltje plegen ... 
Samen hebben we dit jaar weer gezorgd voor 414 pagina’s informatie over en 
programma’s voor DAIpc. We wensen iedereen een productief en creatief 84 ! 


Mededelingen : 


Ondanks de stijgende onkosten blijft de contributie dezelfde : 
900 fr voor Benelux, 1000 fr voor Europa en 1406 fr voor luchtpost. 
Dit zijn de prijzen voor hernieuwing voór 1 feb 1984. Betalingen na deze 
datum worden beschouwd als nieuwe abonnementen, en bedragen dan respectie- 
velijk 1000,1100 en 1509 Bfr, We hopen dat dezè maatregel er zal toe 
bijdra-gen dat iedereen tijdig zijn abonnement vernieuwt,wat het werk van 
onze adminstratie zeker zal vereenvoudigen. 


Betalingen voor software dienen voortaan te gebeuren op volgend nummer : 
401-1009701-4& van Kredietbank Herselt, het banknummer voor de contributie 
is nog steeds : 230-0045353-74 van Generale Bankmaatschappij Leuven. 
De voordeligste manier уап betalen (voor het buitenland) is echter per 
internationale postal order,dit gebeurt nl zonder extra onkosten voor U en 
voor ons... 


We hebben al een paar weken de beschikking over een KEN-DOS systeem : 
het is onvoorstelbaar dat één man deze hard-& software heeft kunnen ont- 
wikkelen іп zijn vrije tijd, maar de prestaties zijn ronduit geweldig: 
de snelheid is fenomenaal (een mode 5 plaatje wordt geladen in minder dan 
1,5 seconde) ,compatibiliteit met audio en DCR is compleet ... alle 
bestaande programma’s kunnen zonder meer ор schijf gezet worden en zijn 
onmiddelijk te gebruiken М Een uitvoerig testrapport volgt іп de 
komende editie, we hopen dat we dan eveneens het INDATA floppy 
systeem kunnen bespreken. 


we wensen iedereen prettige feestdagen, tot in ’84... 
dear members, 


Thanks to your cooperation, we could bring 414 pages of information 
and programs in our 1983-magazines. We hope that creativity and efforts 
will be the same in 1984. 

The contribution will be the same in 1984 if you pay before 1 feb 1984 +: 
this to make the life of our membership administrator a little bit easier. 
Please note the new banc number for software orders : 401-1009701-48 of 
Kredietbank іп Herselt, the number for contributions is still the same : 


_ 250—0045555-74 of Generale Bankmaatschappij Leuven. The cheapest way of 


transferring money however is by international postal money order! 

During a few ‘weeks we have been working with KEN-DOS system . А complete 
testreport will be in our next issue. We appreciate the new system very 
much, especially the enormous speed and the total compatibility with audio 
and DCR-cassettes ! 

we wish you and your family a happy 1984 ! 


Wilfried Hermans 
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NEWS LE de EE 


351 Remark Redactie 





352 Bladwijzer - contents 
353 New Software 


354 diDAIsoft 


555 Bits % Bytes B.Van Rompaey 
356 Character Generator T.Mikulic 
358 Math’ fun р W.Hermans 
559 Programmeertechnieken F.Druijff 
364 Lichtschakelingen C.De Bont 


368 Tech-tips:EPSON with 2 ROM’s A.De Dauw 


370 Tri par selection simple C.Poels 

372 Doolhofspel C.De Bont 

374 KEN-DOS К. Gooswit 

376 BASIC monitor part 2 J.Boerrigter 
380 Eprom programmer on DCE-card A. Beuckelaers 
387 Maze Game М. Dierckx 

388 Video ram table generator S. Pennisi 

394 New characters on GP 100 F.De Jong 

399 DCR tape direction P.Siccardo 
400 cursus microprocessoren А. Beuckelaers 
408 cursus DCE Dirksen 

412 Kerstnacht H.Moeys 

413 Delete BASIC J. Vandebergh 





Benelux : 1000 Bfr (renewal before 1 feb : 900 Bfr) 
Europe : 1100 Bfr (renewal before 1 feb :1000 Bfr) 
Outside Europe 1500 Bfr ( " d ме 1400 Bfr) 
(ñir Mail) 
pay to : Dainamic SUBSCRIPTIONS 
B.Van rompaey * by check or 
Bovenbosstraat 4 ` ж on Bancaccount nr 230-0045353-74 


5044 HAASRODE-BELGIUM of Generale Bank Leuven c/o DAInamic 


see p. 355 
author : B.Van Rompaey 


A collection of didactical and demonstration programs 
about computer hard- & software. As seen on Belgium television 
in the computer-course "CHIPS". 


Programs : introduction - parts of a computer - from keyboard 
to central memory - parts of an instruction - AND-gate - 
manipulating 2 bytes - arithm. unit : decimal — arithm. unit : 
binary ~ addition ~ control unit ~ instruction ~ magnetic tape - 
developments - structures - advantages of higher languages. 


All programs are in graphic modes, text (vary little) is 
in dutch. 





price : audio : 759 fr 
DCR 900 fr 


CHARACTER GENERATOR 


see p. 356-357 
author : Tomislav Mikulic 


A very special program for VIDEO and TITLE-freaks, 
supplying $ fonts (Helvetica 12, Helvetica 22 and PICFONT), 
they can be entered very easy from keyboard.Text is formatted 
proportional, with full graphics overlay.Various shadows and 
edges are possible. By manipulating COLORG and screen copy 
routines, many extra fonts сап be achieved. CHARACTER GENERATOR 
has AUTO-mode for dynamic (and DAInamic) generation of titles. 


price : audio : 1750 fr 
DCR : 1900 fr 
MATH? FUN 


see p. 358 
author : W.Hermans 
Let your children learn while they play games ... 


1/ math-robot : You define difficulty and type of 
exercices : robot will laugh when the answer is good, he will 
become angry (with red ears) if answer is bad. 

for children from 7-12 ( + , - , X exercices). 

2/ math-bingo : a competition game for 2 children, 
with bonus points on good answers. If childs fails 3 times to 
give the right answer, visual representations of the exercice 
are displayed to give a helping hand... 

for children from 7-12 

3/ color and shape with LOGI-blocks. А pre-math program 
to learn to combine different aspects of things. Various shapes, 
difficulty is changing all the time. 

for children from 5-9 








price : audio : 1000 fr 
DCR : 1159 fr 


available soon = 
FWP : the ultimate wordprocessor for DAIpc (see next issue) 


PACMAN : the real and only PACMAN-game with all the specifications 
of the original arcade—oame. {ses next issues) 
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Om onze leden sneller en nog betere programma's te kunnen aanbieden hebben we 

diDAIsoft-vakcoordinatoren aangesteld. Hun opdracht bestaat erin de hen toege- 
stuurde programma's op een verzameltape te brengen en een uitgebreide handlei- 
ding samen te stellen. 

Bezit U didactische programma's voor het secundair of hoger onderwijs stuur ze 
aan onze coordinatoren. Op deze wijze komen ze via de DAInamic-bibliotheek ter 
beschikking van alle DAInamic-leden. , 

Net zoals voor alle andere DAInamic-programmatuur geldt ook hier de regel dat 

U gratis de verzameltape krijgt waarop één van uw programma's werd opgenomen, 

Zo bekom je in ruil voor één programma, er zeven, acht... andere, 


Elke andere vorm van vergoeding moet met Bruno Van Rompaey worden besproken. 


DiDAIsoft werd als volgt structureel uitgebouwd: 


algemene coordinatie 


Bruno Van Rompaey 
Bovenbosstraat 4 
3044:  HAASRODE 
016/ 461085 


vakcoordinatoren 

WISKUNDE SCHETKUNDE-BIOLOGIE-ECONOMIE INFORMATICA 

Jos De Moor ` Jos Vandebergh Bruno Van Rompaey 
Elf-Novemberlaan 5 Goetsbloetsstraat 33 Bovenbosstraat 4 
3500 HASSELT 3500 HASSELT 3044 HAASRODE 

011/ 229815 011/ 253597 016/ 461085 

alleen programma's audio of audio of 

op audiocassette DCR-cassette DCR-casseette 
AARDRIJKSKUNDE NATUURKUNDE TALEN 

Mare Antrop Danny Frére Leo Vandijck 
Beekstraat 29 Festraetsstraat 40 b 6 Mgr Koningsstraat 38 B 
9920 LOVENDEGEM 3800 ST-TRUIDEN 0 3680 MAASEIK 

091/ 728561 011/ 685826 alleen programma's 
audio/DCR audio/DCR audiocassette 
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Voordat ik begin aan het onderwerp van deze keer eerst rog een opmerking over 
het programma van Koert dat ik de vorige keer besproken heb. Koert had mij 
gevraagd hoe het kwam dat het programma aanzienlijk vertraagde na een keer het 
hele veld schoon te maken. De verklaring hiervoor is vrij simpel : De score is 
het enige dat verandert na het schoonmaken van een heel veld, dus moet de 
oorzaak van de vertraging daarin te vinden zijn. Het afdrukken van die score - 
is er inderdaad de oorzaak van dat de speelsnelheid aanzienlijk vermindert als 
die score een groot getal is. Stop het programma maar eens met "BREAK" en 
verander dan de score maar eens in een erg groot getal en geef dan CONT’. Het 
is moeilijk hiervoor een remedie te geven. De score verdelen in een normale 
score en een zgn bonusscore is misschien nog het best aan te bevelen, Het 
helpt niet om de score in twee delen af te drukken namelijk het deel van de 
duizenden еп de rest, daar de winst die zit in de slechts zelden veranderes” 
duizendtallen wordt tenietgedaan door de test hierop. Daarbij is het : 

op-en aflopen van de score een extra probleem waardoor ikzel 

voor mij bevredigende oplossing kon vinden. Ik houd mij aant 

goed idee, 





Ik onderbreek mijzelf hier even om iets te zeggen over he: 
artikel. Het onderwerp is steeds kleiner geworden. Ik begon” 
operatoren al schrijvend kwam ik er achter dat er zoveel t 
mij wilde beperken tot de operatoren, Maar ook dit bleek z 
handelen dat ik zelfs dit onderwerp in twee delen wil aanp. 
opmerkingen van Nico Looije brachten weer zoveel zake 
waard zijn, aan het licht dat een artikel te lang geworde 


Nu het onderwerp van deze keers ik wilde wat nader ing: 
kenkundige en logische operatoren die de DAI-BASIC kr 
ties ook nog eens aan bod komen. Er zijn er die 
behoeven. Weet U soms iets bijzonders te vertel! 
of functies meldt mij dit dan alstublieft, Ik zal 
alle DAInamic-lezers. - 


Om te beginnen de MOD operator, Iemand met ` 
deze operator wel bekend zijn maar het i> 
onbekend is, En wat erger is: het handbo 
werking. Simpel gezegd komt het op eenve 

U zich nog sommetjes als 12 gedeeld door 
doende geoefend hadden we problemen kr 

$ ? Еп dat we toen zeiden "Dat kan + 

eens en vertelde ons dat als we 13 a 
duidelijk was dat ieder recht hac’ 
Wiskundiger gezegd: 13 gedeeld de 

15:5=4 ғ 1 De MOD operator geeft 

een getal п. Ik geef wat voorbee’ 


lagere school leerling 
16:5=3 rest 1 

22:4=5 rest 2 

36:66 rest à 

87:19=8 rest 7 


Goed zult U mis- ° 
doet maar wat 
in mijn prat 
kunt gebruike 


1) U wilt de X-waarde van een punt aan een machinetaal programma doorgeven. 
Deze X-waarde kan vanaf MODE 5 een getal zijn dat groter is dan 255 en met 
POKE I,J kunt U maar een byte (maximale inhoud 255) wegzetten. De X-waarde zal 
dan ook gepoked moeten worden in twee bytes. De ene byte geeft dan aan of X 
groter is dan 255 (in dat geval wordt hij dus 1) en de andere byte geeft aan 
hoeveel groter dan 255 of 0. De eerste byte poken we met X/256, (inderdaad 256 
en niet 255) omdat dat @ is als X kleiner is dan 256 en 1 als X groter is dan 
255 (en natuurlijk kleiner dan 512). De tweede byte poken we met X MOD 256. 
Hetzelfde resultaat kunnen we trouwens ook bereiken door bijvoorbeeld : 

POKE I,X/256:POKE 1-1, Х-РЕЕК (1) #256 
of 

IF X>255 THEN POKE І,1:Х=Х-256 POKE I-1,X 


11) U wilt zorgen dat een punt niet van het scherm afgaat, Met de MOD XMAX 
“snectievelijk MOD YMAX zorgt u hier Qp een heel simpele manier voor. Tik het 
“te nrogrammaatje maar eens in. 


_ХМАХ+1 : YM=YMAX+1 
Х=(Х+1) MOD XM:Y=(Y+1) MOD УМ: ОТО 20 


ik MOD XM doe terwijl XM=XMAX+1 ? Dit is logisch daar de 
X resp. УМАХ mogen zijn maar de MOD Operator levert als 
`aat altijd XM-1 dus hier precies XMAX. 


sele manier snel de richting laten bepalen door de cur- 
‚des van deze toetsen zijn 16,17,18,19. We nemen nu in 
ә regel ор: 


EN 


40,70, 80 


“se volgende regel (50) bij 17 naar regel 6@, bij 
r regel 80. Het programma zal bij deze aanpak 
jaar niet stuklopen of een foutmelding деуеп. 
At aan boverstaand programmastukje Niet in de 
‘apgedrukt is levert GETC 9 op en zal naar de 

Qe Beter is dan ack: 


` 
`4 GOTO 60,70,80 
“O 40 


ator. Bij ñ MOD В wordt het getal А 
“houdt in dat de eventuele cijfers 
an afkappen en het handboek van 

g Q is. Dan wordt vervolgens A 

tal zaken leren. Als we MOD 9 
SRO’. We kunnen indien we dit 
‘etzelfde als bij positieve B 

` Ook А kan negatief zijn en 

aat ligt nu tussen 9 en -В 

lijk in te zien als we de 

~ zult U krijgen als U, 

“intikken PRINT 7 MOD 

“=wijl ik geschreven 

аб negatief zijn 

7-4 mogelijke 


jengestel- 





de van het er achterstaande bedoeld wordt. Simpeler gezegd deze min maakt nor- 
male getallen negatief en reeds negatieve waarden juist weer positief, 


De zogenaamde binaire min werkt op twee waarden en is als zodanig een echte 
operator, dwz een bewerking tussen twee getallen. Deze operator kent iedereen 
als aftrekken. 


De DAI BASIC У1.0 had hier wat probleempjes mee еп ook in BASIC V1.1 zijn die 
nog niet geheel opgelost. De remedie is echter vrij eenvoudig. Levert -3 of ~X 
problemen ор dan vervangt U de -3 door (-3) en de -X door (=X) of U kent de 
waarde eerst toe aan een nieuwe variabele. Tikt U nu maar in: 75 MOD (-2) en U 
bent uw probleem kwijt. 


Dok de *+* kent een unaire en een binaire versie met de betekenissen positief 
respectievelijk optellen maar hier zijn minder vaak problemen mee omdat de 
unaire plus meestal weggelaten wordt, 


Nog een opmerking voordat ik MOD verlaat. Het is een integer operator bij DAI 
en kan wel gebruikt worden bij floating point getallen maar zal wel verkeerde 
uitkomsten geven als we niet opletten. Ik had zelf eens opgemerkt dat functies 
als SIN trager worden naarmate het argument groter wordt, Ik dacht toen heel 
slim via een omweg het toch weer sneller te doen door het argument MOD TPI te 
nemen met TPI=PI+PI. Inderdaad werkte dit veel sneller maar jammer genoeg niet 
goed. ТР!=6.28.... en werd dus bij de MOD veranderd in 6 zodat de uitkomsten 
niet meer juist waren. Toch kunnen we het idee wel gebruiken al praat ik niet 
meer over tijdwinst. Іп plaats van SIN(X) nemen we SIN(X/F MOD G*F) met 
F=2#PI/G en G een groot getal zoals bv tien miljoen. Een ieder die een beetje 
de sinus waarden kent en wel eens de sinus van een groot getal aan de DAI 
gevraagd heeft zal weten dat ik momenteel puur theoretisch praat en in het 
geheel niet praktisch maar daarover een ander keer. 


Andere operators zoals '*' en */* leveren over het algemeen weinig problemen 
op. Zeker zolang we in floating point werken; in integer behoeven sommigen bij 
de deling misschien nog wat uitleg daar de uitleg in het handboek wel erg sum- 
mier (slechts een voorbeeld) is. Zolang de delingen uitkomen is er niets aan 
de hand. i 
Voorbeelden intikken na IMPINT 

?15/5 , ?21/7 , ?74/2 
maar U krijgt *vreemde* resultaten als U tikt: 

215/3 , ?22/5 , 778/7 
Dit komt omdat de deling om het zo te zeggen wel goed uitgevoerd wordt, maar 
het deel achter de komma gewoon wordt weggelaten. In werkelijkheid wordt de 
deling anders uitgevoerd en krijgen we geeneens een deel achter de komma, de 
gebruikte methode kunnen we vergelijken met een deling op de basisschool waar 
er een rest blijft, Soms kunnen deze afrondingen ons echter ongewild toch par- 
ten spelen. Denk eens aan het volgende voorbeeld. Ik wil graag een aantal lij- 
nen tekenen. Bijvoorbeeld van 0,9 naar 16,30 en vervolgens steeds 3.2 verder 
naar rechts schuiven. Om een en twintig lijnen te krijgen zou het volgende 
programma goed moeten zijn. 


19 MODE4:REM NA IMPFPT 

2@ FOR X=@ TO 64 STEP 3.2 
30 DRAW X,9 X+10,30 22 

49 NEXT 


Tikken we dit in en laten we het uitvoeren dan zien we,daar DRAW integers ver- 
wacht en dus de floating point getallen afkapt dat de ruimte tussen de lijnen 
soms 3 еп soms 4 is. Louis Gidney had hier een knappe maar ingewikkelde oplos- 
sing voor, maar wil eventuele publicatie zelf verzorgen en dat mag. 
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Tk kan me ook voorstellen dat bij de vergelijking tussen A% en B! er fouten 
gemaakt kunnen worden, omdat in dit geval АХ wordt omgewerkt tot een floating 
point getal voordat de vergelijking wordt gedaan en ik kan me voorstellen dat 
hoewel we er zeker van zijn dat een van de twee kleiner is het resultaat een 
gelijkheid is of omgekeerd. Enkel en alleen door afrondingen bij de conversie. 
Toch heb ik hier zelf nooit problemen mee gehad (Wie wel ?).Місо Looije kwam 
voor het uitprinten van dit artikel met het volgende aan: 

16 IF INT(2*3)=8 THEN ?"НЕТ IS INDERDAAD HETZELFDE", 


Machtsverheffen levert soms problemen op. Het pijltje dat we daar voor gebrui- 
ken is een floating point verwachtende operator en eventuele integers worden 
geconverteerd. Daar bij A tot de macht В, В ook een breuk ( beter een gebroken 
getal) of negatief mag zijn is de definitie (en dus ook de berekening) anders 
dan we destijds op school leerden toen we er voor het eerst kennis mee maakten 
Voorbeelden als 2^3 betekent 2#2*2 en 774 betekent 7%7%7%7 enz, zijn simpel te 
begrijpen als een andere schrijfwijze, die zeker als de exponent groot is erg 
handig kan zijn. We kunnen doorgaand in deze gedachtengang ook nog wel 8^1=8 
en na het maken van een tabelletje van 2^4=16, 2528, 2°2=4, 2°1=2 ook nog wel 
begrijpen dat het logisch іс om 2°@=1, 22(-1)ш.5, 2°(-2)=.25 enz af te spreken 
Het is alweer een stap moeilijker om 2*,5 te snappen maar als we weten dat 
27I 25 = 2^8 dan moet 47,5 ж 4^.5 = 421 dus 4 zijn. En het getal dat met 
zichzelf vermenigvuldigd 4 oplevert is 2 dus is 47,8 = 2 en als het wat minder 
mooi uitkomt 67,5 = 6 de normale SQR(6), Nemen we 64°(1/3) krijgen we 4 de 
derdemachts wortel uit 64, maar pas op alleen па IMPFPT anders krijgen we 1.4 
omdat na integerdeling 1/5 de exponent ó is еп 64^0 = 1 ! 


We zien dan ook dat iets als (-4) “2.5 onmogelijk is met reele getallen al kun- 
nen we best (-4)°2 zelf uitrekenen door (-4)%(-4) te doen. De methode die DAI 
gebruikt is echter niet mogelijk met negatieve grondtallen, dus ook niet als 
de exponent een geheel getal is, Als U zich, zonder te diep wiskundig te gaan 
graven, een voorstelling wilt maken} doe dan het volgende : Neem een vel ruit- 
jespapier en maak daar een normaal assenstelsel op. Kies als grondtal bijv 2. 
Bij de horizontale 1 zet U een punt op hoogte 2 (=2°1), bij horizontaal 2 een 
punt op hoogte 4 (=2^2), bij horizontaal 3 een punt op hoogte 8 =(2^3) enz. 
Verbind de punten die U gevonden heeft door een zo vloeiend mogelijk lopende 
lijn. U kunt nu in deze zelf gemaakte grafiek redelijk aflezen wat bv 2^2.61 
moet zijn.Controleer dit met uw DAI. Vindt U het moeilijk om U voor te stellen 
hoe de grafiek naar links voor de negatieve waarden doorgaat nummer dan de ver 
tikale as niet 1,2,2,4,.... maar met 1,2.4,8,16,52,64,128,.... dus steeds het 
dubbele, U zult zien dat het aflezen van de grafiek moeilijker wordt maar de 
grafiek zelf gemakkelijker. Fas echter op met het nummeren van de vertikale as 
naar beneden toe het is niet -1,-2,-4,-8,-16,... maar 1/2,1/4,1/8,1/16,.... 
met 1/2 bij het streepje onder de 1 (naar boven toe is maal twee, naar beneden 
toe is gedeeld door twee). Neem nu eens als grondtal 3 maar gebruik dezelfde 
nummering als daarnet. (verbaasd 7) Foog nu hetzelfde te doen met grondtal -2. 
De basispunten waarbij de exponent toch geheel is kunt U bepalen, maar kunt U 
nu ook nog gemakkelijk zien hoe de grafiek moet lopen 7 Misschien voelen som- 
migen zich gekwetst door mijn aanname dat zij dit nog niet wisten, maar bedenk 
dan dat Û misschien minder vaak dan ik te maken krijgt met DAI-bezitters die 
stomverbaasd zijn dat (-5)*2 niet kan. Aan de andere kant zou het wel prettig 
zijn als de DAI een tweede machtsverheffing kende die alleen op integers werk- 
te zodat bv de stelling уап Pythagoras probleemloos gebruikt kan worden. Maar 
zoals eerder reeds verteld A*A is echt sneller dan ñ”2 en het resultaat is be- 
trouwbaarder en het werkt probleemloos met negatieve A. 


Verder wil ik U nog wijzen op de prioriteitsregels voor de verschillende ope- 
ratoren. Daar het in een totaal ander deel van het handboek staat (6.2.2.95) is 
het niet vreemd als U vaak veel te veel haakjes gebruikt om zeker van een 
juiste afhandeling te zijn. Nadeel van deze extra haakjes is een iets langere 
werktijd (zeer gering). Een voordeel kan soms zijn dat het sneller duidelijk 
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wordt hoe er gerekend wordt.Aan de andere kant moeten we toch ook zien dat een 
expressie waarin meer dan 10 haakjes voorkomen niet snel te begrijpen valt. 
Zoals in de wiskunde gebruikelijk kan elke prioriteit door de programmeur 
veranderd worden door het betreffende deel tussen haakjes te zetten als hij 
dat als eerste wil laten uitwerken. 

Het hoogste niveau is machtsverheffen gevolgd door vermenigvuldigen , delen en 
modulo nemen (Wist U dat de uitspraak van MOD modulo was ? ). Deze drie hebben 
alle dezelfde prioriteit en zullen (zonder haakjes) van links naar rechts wor- 
den pie 

22 MOD 30*2=24 еп 111/5 MOD 19=7 enz. 

Op ae laagste niveau staan hier optellen en aftrekken. Er zijn nog lagere ni- 
veaus maar die zijn er voor SHL, SHR, IOR, IAND IXOR, >, <, =, Š> , =, <= А 
AND en OR. Deze zullen echter in het tweede deel van deze verhandeling aan bod 
komen. Ik heb het nu al haast klaar en zal wat dat betreft dus rustig van de 
komende feestdagen kunnen genieten. 


Ik wil besluiten iedereen eveneens prettige feestdagen toe te wensen en alvast 
een DAInamisch 1984 





PROBLEMEN MET PRINTING 7 P 7 


Heeft U ook al vaak gehad dat U wilde beginnen met iets op de printer en 
omdat U nog niet klaar was de printer afgeschakeld had met POKE #131,1 7 
U veranderde iets en maakte een klein foutje en kreeg dus “SYNTAX ERROR’ 
Dit hoeft geen probleem te zijn, maar omdat deze tekst оок op de printer 
komt is ons mooie lege vel papier ineens niet leeg meer. De printer OFF 
LINE zetten helpt niet, het uitzetten van de printer wel. Maar dan zien 
we de instellingen van de printer zoals tab en double printing weer ver- 
loren gaan. Dit alles alleen omdat de DAI op #131 weer een @ zet als een 
foutmelding komt. Dit probleem is echter op te lossen. In DAlnamic nr 18 
schetste ik het al in het kort. Iedere keer dat iets afgedrukt gaat wor- 
den wordt interrupt 5 doorlopen. Als we er nu voor zorgen dat deze eerst 
via onze omweg op #151 zet wat we willen zal er alleen dan naar de prin- 
ter tekst gestuurd worden als wij dat willen. 

Onze routine die bij elke doorgang van interrupt vijf doorlopen zal wor- 
den is slechts tien bytes groot еп zal normaal probleemloos іп 7% gebied 
van de envelopes opgeborgen kunnen worden. Als het startadres is gekozen 
voor #260, U kunt de routine met Substitute in Utility vanaf #269 plaat- 
sen en vector vijf naar onze routine laten springen. En vanaf dit moment 
kunt U de printer laten printen als U dat wil. 


Printer aan : POKE #262,0 
Printer uit : POKE #262, 1 


zoals U ziet dezelfde poke's als U gewend bent, alleen het poke-adres is 
tweemaal hetgeen U gewend was. Nu de routine en hoe U hem op zijn plaats 


krijgt. 

I UT 

II 5260 [SPACE] FS ЗЕ oi 32 31 @1 C3 FD éC [CURSOR LEFT] 
III VS [SPACE] 269 [CURSOR LEFT] 


Tk hoop velen hiermee een plezier te hebben gedaan 


Frank H Druijff 
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160 
119 
120 
130 
149 
150 
140 
170 
180 
190 
200 
219 
22 
250 
240 
259 
269 
279 
280 
290 
500 
510 
520 
550 
340 
550 
580 
370 
389 
390 
400 
419 
420 
459 
440 
450 
468 
479 
480 
490 
500 
510 
529 
550 
549 
550 
560 
570 
580 
599 
600 
410 
420 
550 
840 
550 
700 
710 
730 
749 
759 
890 
810 
820 


REM жия ELECTRISCHE LICHT-SCHAKELINGEN жын 
REM ++* GESCHREVEN DOOR : DE BONT CORNEEL жж 
REM кекке жыны 7 — 7 — 1985 HANNAH 
REM жж DIT PROGRAMMA TOONT DE WERKING VAN : + 
REM *** 1) ENKELPOLIGE SCHAKELING жне 
КЕМ *** 2) DUBBELPOLIGE SCHAKELING жне 
REM *#* 5) WISSEL-SCHAKELING #4333 nde neden 
КЕМ xxx 4) KRUIS-SCHAKELING ии 
REM HK FE E HF E HE E E E KE E EF EEF EF FF FF EEK EEF 
CLEAR 500: НТ=10: GOTO 1000 

КЕМ +++ SCHAKELAARS (Х,5) 

XG=X+23:FILL Х-5,0 X+55,49 S:FILL X-4,1 X+54,39 8 
FILL X+13, 24 X+17,30 @:G$="3":IF X=4@ THEN G$="1" 
IF S=3 THEN DRAW Х+5,28 Х+12,28 3:GOTO 250 

DRAW X+15,31 Х+15,40 3 

FILL X+33,26 X+37,30 @:YG=41: IF X=12@ THEN G$="2" 
GOSUB 900:ІҒ 5-4 THEN DRAW X+38,28 X+45,28 3:G0T0 280 
DRAW X+35,31 X+35,40 3:ІҒ S=1 THEN 360 

FILL X+15,16 X+17,14 0 

IF 5<5 THEN DRAW Х+5,12 X+12,12 3 

DRAW Х+5,12 X+5,40 3:FILL X+33,10 X+37,14 0 

ТЕ 555 THEN DRAW X+38,12 X+45,12 3 

DRAW Х+45,12 X+45,4@ 3:1F S<Š THEN 560 

DRAW X+5,3 Х+5,12 3:DRAW X+5,3 X+35,3 3 

DRAW X+35,3 X+35,9 3:DRAW Х+45,6 X+45,12 3 

DRAW Х+15,6 Х+45,6 3: DRAW Х+15,6 Х+15,9 3 

FOR 7=Х TO X+50 STEP 5 

IF SCRN(Z,39)=3 THEN FILL 7-1,58 Z+1,40 14 
NEXT: IF 5>2 THEN GOSUB 400 

RETURN 

КЕМ ### SCHAKELEN (X) 

SC=SCRN (X, 9) : SW=SCRN(X+20, 28) 
X1=X+14:X2=X+16:X3=X+18 

X4=X+32: X5=X+34: Х6=Х+56 

IF SC<>1 THEN 440 

FILL X3,27 X4,29 @:IF SW=@ THEN FILL X3,27 X4,29 8 
IF 5С<>2 THEN 499 

C=0: IF SW=@ THEN С=8 

FILL X3,11 X4,13 C:FILL X3,27 Х4,29 С 

ТЕ SC<3 OR SC>4 THEN 530 
IF SW=3 THEN 520 

FILL X3,11 X4,13 @:FILL X3,27 X4, 
FILL X3,11 Х4,13 8:FILL X3,27 X4, 
IF SC<>5 THEN 590 

IF SW=@ THEN 579 

FILL X1,15 Ха,25 8:FILL X3,27 X4,29 @ 

FILL X3,11 Х4,13 0: БОТО 590 

FILL X3,11 X4,29 B:FILL X1,15 X2,25 © 

FILL X5,15 Ха,25 0 

RETURN 

REM +++ LAMP (L) 

CC=0: IF L=1 THEN СС-15 4 

FILL 290,150 240,170 @:FILL 201,151 239,169 CC 
FILL 209,168 211,170 14:FILL 229,168 251,170 14 
XG=205: Үб=140:6%="1 АМР" : 60508 900 

RETURN 

КЕМ «xx POWER SUPPLY 

FILL 0,170 40,210 @:FILL 1,171 39,299 3 

FILL 38,179 40,181 14:FILL 38,199 40,201 14 
XG=6: YG=140: G$=" POWER": GOSUB 900 

RETURN 

REM *** GETC 

G=GETC: G=GETC: G=GETC: P=#73C4: W=0: POKE #75, 95 
CC=INT (iS*RND(1))+i:POKE P,208+CC: IF CC=8 THEN 820 


29 8:G0TO 550 
29 @ 











364 - DAInamic 83-19 


830 SOUND 1 © 9 @ FREQ((CC#5@)4+5@):WAIT TIME 3:SOUND DEF 
840 =GETC: IF G=@ THEN W=W+1:WAIT TIME 3:IF W<3@ THEN 849 
850 IF G=@ THEN W=0:GOTO 820 

869 POKE #75,32:RETURN 

900 REM *#** BASIC CALL OF FGT 

910 SOUND 1 ð 15 9 FREQ(XG+Y6+50) 

920 POKE #2F0,TC:POKE #2F1,TH:POKE #2F2,XG MOD 256 

950 POKE #2F3,XG SHR 8:POKE #2F4,YG:POKE #2F5,8 

940 POKE #2F4,1@:CALLM #300,G$:SOUND OFF : RETURN 

1000 REM *** MENU 

1010 COLORG 8 5 5 14:MODE 4A: PRINT CHR$(12);:ENVELOPE 9 15 
1020 COLORT 8 9 © @:FOR I=@ TO HT: TC=22:IF I=HT THEN TC=23 
1030 G$="ELECTRISCHE LICHT- SCHAKEL INGEN. " 
1040 XG=80+I:YG=120+I:TH=1:GOSUB 900: NEXT: TH=0: ТС=21 

1050 XG=270:YG=40:6$=" door: De Bont Corneel.":GOSUB 900 
1069 ТН=0:ТС=0: РОКЕ #75,32:CURSOR 3, 1:HT=2 

1070 PRINT "1=ENKELPOLIG 2=DUBBELPOLIG 3=WISSEL 4=KRUIS 5-5ТОР" 
1080 PRINT TAB(15)5"WELKE KIEST U (1-5) "3 

1090 GOSUB 860: IF G<49 OR G>53 THEN 1040 

1100 PRINT CHR$ (12)35 TAB (15) 5 : G=G-48 

1110 IF 6<5 THEN MODE SA: MODE SA 

1120 ON G GOTO 2000, 3000, 4900, 5000, 5000 

1139 GOTO 1040 

2900 REM жұ» ENKELPOLIG 

2010 PRINT "ENKELPOLIGE SCHAKELING " 

2020 GOSUB 790: 5050В 8500: X=40:5=1:GOSUB 200 

2050 DRAW 41,180 55,180 &:DRAW 55,41 55,180 5 

2040 DRAW 75,41 75,180 @:DRAW 75,180 210,180 9 

2050 DRAW 210,180 210,171 @:DRAW 41,200 250,200 9 

2080 DRAW 230,200 230,171 9 

2070 PRINT "DE SCHAKELAAR EN DE LAMP STAAN IN SERIE GESCHAKELD AAN DE" 
2080 PRINT "VOEDINGSSPANNING. DE SCHAKELAAR ONDERBREEKT 1 DER 2 DRADEN" 
2090 PRINT "U KUNT SCHAKELEN MET TOETS 717 (TAB=MENU) "; 

2100 X=40:GOSUB 400:L=1:G0SUB 600 

2110 GOSUB 866:L=@:IF G=9 THEN 1000 

2120 IF G=49 THEN X=40:GOSUB 490:G0T0 2140 

213@ GOTO 2110 

2140 IF SCRN(60,28)=0 THEN L=1 

2150 GOSUB 4@0:GOTO 2110 

5000 REM жж DUBBELPOLIG 

3010 PRINT "DUBBELPOLIGE SCHAKELING" 

302@ GOSUB 700: GOSUB 800: X=40:S=27:GOSUB 200 

5050 DRAW 41,180 45,180 6:DRAW 45,180 45,41 4 

5040 DRAW 41,200 55,200 9:DRAW 55,200 55,41 9 

3050 DRAW 75,41 75,200 @:DRAW 75,200 250,200 9 

5050 DRAW 250,200 250,171 @:DRAW 85,41 85,180 0 

5070 DRAW 85,180 210,180 @:DRAW 210,180 210,171 9 

5080 PRINT "DE SCHAKELAAR STAAT NU IN SERIE МЕТ ALLEBEI DE VOEDINGS-" 
5090 PRINT “DRADEN.NU WORDEN BEIDE DRADEN ONDERBROKEN OF GESCHAKELD. " 
5100 PRINT "U KUNT SCHAKELEN МЕТ TOETS 717 (TAB=MENU) "3 
3110 X=4@:GOSUB 406:L=1:GOSUB 500 

3129 GOSUB 9@0:L=0:IF G=9 THEN 1000 

3130 IF G=49 THEN X=4@:GOSUB 4090: GOTO 3156 

5140 GOTO 5120 

5150 IF SCRN(60,28)=0 THEN L=1 

5180 GOSUB 46@:GOTO 3120 

4000 КЕМ xx WISSEL-—SCHAKELING 

4010 PRINT * WISSEL -SCHAKEL ING 5 

4020 GOSUB 700:605ИВ 400: X=40:S=3:GOSUB 200 

4050 X=280:S=4:G0SUB 200: DRAW 41,180 45,180 6 

4040 DRAW 45,180 45,40 4:DRAW 41,200 210,200 9 

4050 DRAW 210,200 210,171 9:DRAW 75,41 75,190 5 
4080 DRAW 75,190 295,190 S: DRAW 295,190 295,41 5 
4070 DRAW 85,41 85,180 5:DRAW 85,180 285,180 5 

4080 DRAW 285,180 285,41 S:DRAW 325,41 325, 200 0 
4090 DRAW 525,200 250,200 O:DRAW 250,200 250,171 9 
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4100 
4110 
4126 
4159 
4148 
4159 
4140 
4178 
4180 
4199 
4200 
5000 
5010 
5020 
1950 
5040 
5050 
5050 
5970 
5989 
5990 
5100 
5118 
5120 
5139 
5140 
3156 
5160 
5170 
5189 
5190 
5200 
5210 
5220 
5250 
5249 
5259 
5260 
6900 
8910 


PRINT "TWEE SCHAKELAARS BEDIENEN NU VIA TWEE WISSELDRADEN" 

PRINT "EEN ЕМ DEZELFDE LAMP (OMSCHAKELING VAN 2 DRADEN)" 

PRINT "Ц KUNT SCHAKELEN МЕТ TOETSEN 717 EN 73” (TAB=MENU) "5 
L=1:GOSUB 400 

GOSUB 800:L=0:IF 6=? THEN 1000 

IF G=49 THEN Х=40:6050В 40@:G0TO 4180 

IF 6=51 THEN X=280:GOSUB 400:60Т0 4180 

GOTO 4140 

IF SCRN(4@,28)=0 AND SERN (300, 28)=0 THEN ізі 

ТЕ ЗСКМ (20,12) =0 AND SCRN(300,12)=@ THEN ігі 

GOSUB 500: GOTO 4149 

КЕМ жж» KRUIS-SCHAKEL ING 

PRINT "  KRUIS-SCHAKELING e 

GOSUB 760:GOSUB 60@: X=40:S=3:G0SUB 200: X=120:5=5 

GOSUB 200: Х=280:5=4: 6050В 200:DRAW 41,180 45,180 8 

DRAW 45,180 45,40 6:DRAW 41,200 210,200 9 

DRAW 210,200 210,171 9:DRAW 75,41 75,190 4 

DRAW 75,190 155,190 4:DRAW 155,190 155,41 4 

DRAW 85,41 85,180 4:DRAW 85,180 125,180 4 

DRAW 125,180 125,41 4:DRAWN 155,41 155,190 7 

DRAW 155,190 295,190 7:DRAN 295,190 295,41 7 

DRAW 165,41 185,180 7:DRAW 165,180 285,189 7 

DRAW 285,180 285,41 7: DRAW 325,41 325,200 0 

DRAW 325,200 250,200 O:DRAW 250,200 250,171 9 

PRINT "DRIE SCHñKELAñRS BEDIENEN NU VIA TWEE WISSELDRADEN" 
PRINT "EEN ЕМ DEZELFDE LAMP (OMSCHAKELING VAN 2 ОВАБЕМ)" 

PRINT "U KUNT SCHAKELEN MET TOETSEN 717,727 EN '3' (TAB=MENU) "5 
=1:6050В 500 

GOSUB Н00:1-0:ІҒ 6-9 THEN 1000 

IF 6-49 THEN X=4@:GOSUB 400:GOTO 5220 

IF G=5@ THEN X=120:GOSUB 400: GOTO 5220 

IF 6-51 THEN X=280:G60SUB 400:60Т0 3220 

GOTO 5170 

IF SCRN(60.28)=@ AND 5СКМ(140,28)-0 AND SCRN(300,29)=@ THEN 
IF SCRN(4@,12)=@ AND SCRN(140,12)=0 AND SCRN(30@,12)=@ THEN 
IF SCRN(4@,12)=0 AND SCRN(136,15)=0 AND SCRN(300,28)=@ THEN 
IF SCRN(40,28)=@ AND SCRN(134,15)=@ AND SCRN(300,12)=@ THEN 
GOSUB 490: GOTO 5170 

КЕМ жж EINDE 

PRINT СНА$ (12); ТАВ{22);"Е I N D Е":РОКЕ #75,95 


rre 
" H Hl H 


гг 
ke Feb Fe Fa 
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ре MX80-100 gebruikers hebben nu de mogelijkheid alle functies 

te benutten die er ziin met zowel de GRAFTRAX als de type III 

printers. U dient wel over beide eprom-sets te beschikken. 

м.БҺ.: schuin schrift (italic) zowel als super klein schrift 
(superscript) blijven behouden. 

Dit is mogelijk door beide eprom-sets boven op elkaar te solderen, 

behalve de voedingspennen. Met een uitwendige schakelaar kan U 

eenvoudig het gewenste eprom-dek kiezen met de bijhorende karakter- 

set.De plaats en de bevestiging voor de schakelaar is reeds voorzien! 


De juiste werkwijze is als volgt: 

Na het demonteren van de bodem van de printer verwijdert U het 
bestaande epram-set (let wel ор de nummering). 

Vervolgens worden de twee eprom-sets (per twee) boven op elkaar 
gelegd en gesoldeerd, behalve de pennen 12 en 24, die nog NIET 
gesoldeerd warden. Dus eprom GRAFTRAX nri onder en ТҮРЕ III nri boven 
en vervolgens hetzelfde met de nummers 2 en 3. 

Plooi nu alle pennen nr 12 en nr 24 lichtjes naar boven, zodat 

ze straks niet meer in de voetjes kunnen . f 

Zet nu de drie stapeltjes van twee eproms naast elkaar, ongeveer 

op dezelfde afstand zoals ze in de printer moeten komen. 

Met heel fijn soepel draad worden van het onderste dek de penen 

12 verbonden en gesoldeerd ; hetzelfde met de pennen 12 van het 
bovenste dek. 

Draai de sets om en verbind de pennen nummers 24 van het onderste 
dek met elkaar 5; hetzelfde met de pennen nr 24 van het bovenste dek. 
Soldeer alvast vier stukjes draad van 8 cm aan resp. nr. 12 van 
onderdek, nr. 12 bovendek, nr.24 onder, en nr. 24 boven, en dit 

aan de rechterkant van eproms nr. 5. 

Steek de eprom-sets voorzichtig terug in hun voetjes (nummering!) . 
Localiseer vervolgens de plaats voor de montage van een dubbele 
miniatuur-omschakelaar : achter de printer, vlak naast de parallel- 
stekker ziet U een uitsparing in de kast met een vijsje in het 
aluminium chassis. Dit vijsje kan dienen voor het bevestigen van 

een rechthoekig plaatje van 2 X 1 cm met twee gaatjes : 1 (3mm) voor 
het vastzetten van het plaatje еп 1 (6mm) voor het monteren van de 
schakelaar. (De tekening zal dit verduidelijken) 

Rij het monteren van de schakelaar zal U mogelijks de massaklem 

met de groene draad vlakbij de schakelaar moeten verplaatsen en 

meer links moeten solderen. 

Verbind het linkse middencontact van de schakelaar met massa, en 

het rechtse middencontact met de plus D volt (bij eprom 3 pin 24). 
Vervolgens worden de 4 draden van de eproms gesoldeerd : het 
onderdek pin 12 aan linkse onderste contact schakelaar, het bovendek 
pin 12 aan bovenste linkse contact schakelaar $ pin 24 onderdek aan 
rechtse onderste contact schakelaar en pin 24 bovendek aan rechtse 
bovenste contact schakelaar. 

Hiermee is de installatie voltooid en kan U met eenvoudig omschakelen 
de beide zelftests van de beide eprom-sets proberen. Schakel echter 
alleen om met uitgeschakelde printer. 
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Nog enkele voordelen: 


te gebruiken. (lukte niet met GRAFTRAX 
met TYPE III slechts 8 minuten !!! 
l- Mogelijk labels maken met superscript 


f- Stand TYPE III 


1) 


LG Schuin schrift blijft behouden (Italics) 


t- Stand GRAFTRAX : standaard 80 karakters 
z standaard 132 karakters 


t- Tijdwinst is enorm: screencopy 9 grijstinten, 


A. 


met GRAFTAX 


De Dauw 


[— Het is zondermeer mogelijk om screencopy-routines van de EPSON MX82 


= 21 min 5 
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= TRI PAR SELECTION SIMPLE EN LANGAGE MACHINE = 


Copyright Christian POELS — 24/4/83 


Le programme que je vous propose ci-dessous trie une série 
d'éléments se trouvant dans un vecteur ou un tableau entier. Le tri peut 
s'effectuer sur l’ensemble du tableau ou sur une partie de celui-ci. Le nombre 
d'éléments à trier doit etre stocké aux adresses #300 et #301 et l’appel à la 
routine se fait de la façon suivante: 

CALLM#306,NOM DU TABLEAUCINDICE(S) DU PREMIER ELEMENT DE LA SERIE) 

Si le tri doit s’effectuer dans un tableau, 11 faut savoir que tous 
les éléments de celui-ci sont rangés en mémoire ligne par ligne. Les éléments 
seront donc aussi triés ligne par ligne. 


Four essayer l’exemple, taper le machine et le basic et les 
enregistrer sur cassette. RESET. Adapter les pointeurs: 
POKE#298, о: POKE#29C, 4:CLEAR1000. Lire le machine. NEW. Lire le basic. RUN. 
Dans cet exemple, le tri se fait dans un vecteur de 256 éléments contenant des 
valeurs entières comprises entre -500 et 500. Le tri en lui-meme prend environ 
Š secondes. Voici quelques exemples de temps d’exécution: 


Nbre d’éléments: Temps (sec.): 


Le temps d'exécution croit évidemment beaucoup suivant 
le nombre d'éléments mais dans la plupart des cas pratiques, le délai est 
raisonable. Bien sur, pour trier plusieurs milliers de nombres, il serait 
préférable d'utiliser une autre méthode mieux adaptée aux grandes séries. 


10 REM CHRISTIAN POELS - 26/4/83 | 

29 REM EXEMPLE DE PROGRAMME PRINCIPAL 

39 CLEAR 2000:DIM A(255) 

40 PRINT CHR¥ (12); "ELEMENTS A TRIER:":PRINT 

59 FOR I=0 TO 255: A(I)=RND (1009) -500: PRINT A(I),:NEXT 
69 PRINT :PRINT :PRINT :PRINT “LE TRI S’EFFECTUE!" 
70 N=256:REM М-МОМВНЕ D'ELEMENTS A TRIER 

80 Е=0:КЕМ TRI SUR N ELEMENTS A PARTIR DE A(E) 

90 GOSUB 60000:REM TRI f 

199 PRINT :PRINT :PRINT "ELEMENTS TRIES: ":PRINT 
119 FOR I=@ TO 255:PRINT А(1),:МЕХТ:РКІМТ 

129 END 

60000 REM APPEL DE LA ROUTINE MACHINE 

60010 POKE #300,N MOD 256:РОКЕ #301,N/256 

60020 САШ М #306, A(E) 

60030 RETURN 


0500 00 00 00 00 00 00 CS DS ES FS ЕВ 2A 90 93 44 AD 
9510 OB ЕВ 54 SD CS ES Ср GB 95 25 23 25 25 ЕЗ 23 23 
0520 25 ЗА 95 03 96 2B ЗА 04 ӨЗ JE 2B ЗА 05 03 FE 2B 
0550 ЗА 02 05 GE FA 3C 05 54 SD CD 4B 03 OB El 78 Bi 
0540 C2 19 05 El 1А АҒ 7E 71 12 23 13 1А АҒ 7E 71 12 
0359 25 13 1А АҒ 7E 71 12 23 13 1А 4F 7E 71 12 23 Сі 
6360 OB 78 Bi C2 12 03 F1 Е! Di Сі C9 7E 32 02 ӨЗ 25 
0376 7E 32 ӨЗ 05 25 7E 32 04 ӨЗ 25 7E 32 05 Өз 2B 2B 
370 0580 2B CP 00 00 00 00 00 00 00 00 00 00 00 00 00 00 











fed t 
Lë 
Е 





001 ORG 2306 054 OIC AF MOV С,А 
002 9306 CS PUSH В 955 9540 7E MV A,M 
003 0307 DS PUSH D 954 934E 71 MOV M,C 
004 0508 ES PUSH H 057 ӨЗДЕ 12 STAX D 
005 0309 ЕЗ PUSH PSW 958 0350 25 INX H 
@96 830A EB XCHG 059 0351 13 INX D 
007 039B 2560003 ІНІ) :300 060 0352 1А ірах р 
008 050Е 44 MOV B,H 961 9555 4F MOV C,A 
009 93@F 4D MOV сы 962 0354 7E MOV A‚M 
010 0310 OB DEX B 96$ 0355 71 MOV M,C 
911 9311 ЕВ XCHG 954 0556 12 STAX D 
012 9312 54 LOOP 1 MOV DH 085 9557 23 INX H 
913 0313 SD MOV EL @&& 0338 13 INX D 
014 0314 CS PUSH B 967 0359 1A LDAX D 
915 0515 ES PUSH H 968 ӨЗЗА АҒ MOV C,A 
916 9516 CD6B03 CALL PLPE 969 ӨЗЕВ 7E MOV A,M 
017 0319 25 LOOP2 INX H 070 @35C 71 MOV M,C 
018 6314 23 INX H 971 0550 12 STAX D 
019 @31B 23 INX H 972 @35E 23 INX H 
920 @31C 23 INX H 073 ӨЗ5Ғ Ct РОР В 
021 9510 ЕЗ PUSH H 974 0580 OB DCX B 
922 @31E 25 INX H 975 9561 78 MOV A,B 
925 @31F 23 INX H 976 @362 Ві ока C 
924 0320 23 INX H 977 @363 Г21293 JNZ LODP1 
925 0521 540505 LDA 2305 978 @364 F1 POP PSW 
926 0324 96 SUB M 679 0367 El POP H 
027 0325 2B DCX H 080 06368 Di POP D 
928 9526 SA0403 LDA : 304 081 0369 Ci POP B 
029 0329 ФЕ SBB М 982 @36A C9 RET 

050 932A 2B DCX H 985 @36B 7E PLPE MOV А,М 
031 9528 3040303 LDA 2303 984 956С 520203 STA : 302 
052 932E 9E SBB M 985 956Е 23 INX H 
033 @32F 2В DCX H 686 0370 7E MOV А,М 
934 0550 540203 LDA : 302 087 0571 320303 STA 2303 
035 0333 GE SBB M 088 0374 23 INX H 
956 0334 ҒАЗСӨЗ JM PPP 089 0573 7E MOV «OAM 
037 0337 54 MOV ІН 990 037& 320463 ЭТА : 304 
038 0338 5D MOV EL 091 9579 25 INX H 
059 0559 CD6B03 CALL PLPE 092 037A 7E МОУ A,M 
040 @33C OB PPP DCX B 095 @37B 320503 STA 2305 
041 9550 El POP H 994 @37E 2B DCX H 
042 ӨЗЗЕ 78 МОУ A,B 995 @37F 2B DCX H 
045 ӨЗЗЕ BI ORA C 995 0589 2B DCX H 
044 0349 С21903 JNZ LOOP2 997 0581 CH КЕТ 

045 0343 EI РОР H 098 @382 END 

646 0344 1A LDAX D 

947 9545 AE MOV С,А 

948 0346 7E MOV А, М 

949 0347 71 MOV M,C 

950 9348 12 STAX D 

951 9349 23 INX H 

052 93544 13 INX D 

053 ӨЗАВ 1A LDAX D 


ЗЕЕ ЕЕ ЕЕ ЕЕ НЕЕ ЕЕ ЕЕ 


*SYMBOL TABLES 
APN 


ШОР1 0312 \LOOP2 6319 РІРЕ @36B PPP 953С 371 





198 
119 
126 
139 
149 
159 
169 
170 
189 
199 
200 
210 
220 
250 
240 
258 
700 
710 
720 
730 
748 
759 
759 
770 
789 
809 
819 
820 
830 
848 
850 
860 
870 
880 
890 
900 
910 
920 
930 
1090 
1019 
1020 
1930 
1949 
1059 
1080 
1070 
1980 
1990 
1100 
1119 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1250 
272 1240 





КЕМ жұ DOOLHOFSPEL 24444444 IEEE 
КЕМ жєжє GESCHREVEN DOOR : DE BONT CORNEEL жн 
REM ӘНЕ 50 — 6 — 1985 жакты 
REM жия DE DOOLHOFGENERATOR (LINES 1000-1499) +++ 
КЕМ **#* IS EEN GEWIJZIGDE VERSIE VAN DE SUB- жж 
КЕМ жж ROUTINE WELKE OP ZONDAG 26-6-1985 IN жн 
REM ### DE NOS-UITZENDING ’НОВВУЗСООР? WERD және 
REM +++ UITGEZONDEN. HHH KK EK E KEF E E E EEF 
КЕМ ¥ EFF FFF EE EEE ЕЕ ЗЕЗЕ-ЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕ 
GOTO 790 

КЕМ жж GETC-ROUTINE 

G=GETC: G=GETC: G=GETC: W=@:POKE #75,95 

SOUND 1 0 9 © FREQ(RND(900)+50):WAIT TIME 3:SOUND OFF 
G=GETC: IF G=@ THEN W=W+1:WAIT TIME 3:1F W<3@ THEN 230 
IF G=@ THEN W=6:G60T0 220 

POKE #75, 32: RETURN 

КЕМ xx TITELPAGINA 

MODE @:PRINT CHR#(12)3:CLEAR 14000:POKE #75,32 
COLORT 8 9 8 &:POKE #BF49,#4A:POKE #BF48, 220 

РОКЕ #BESD, HAA: POKE #BESC, 221 

POKE #BD51,#4A:POKE #BD50, 222 

POKE #BC44, 207: CURSOR 6,22:PRINT "DOOL" 

CURSOR 0,20:РКІМТ " HOF-":CURSOR 0, 18:РКІМТ " SPEL" 
CURSOR 19,16:PRINT "DRUK OP 1 TOETS OM TE BEGINNEN %; 
GOSUB 200 

КЕМ *** INPUT’S 

COLORG 8 © 16 14:MODE 2A 

PRINT СНЕФ (12) 5 TAB (15) ; "DOOLHOFSPEL. ":PRINT 

PRINT TAB(10); "BEWEEG МЕТ CURSORTOETSEN":DIM CL (3) 
PRINT " BREEDTE DOOLHOF ж 5 (2-7) "3 

GOSUB 200:ІҒ 6559 OR G>55 THEN 850 

Н= (6-48) #5:РКІМТ CHR$(G)5" ж 5 =";Н 

PRINT " HOOGTE DOOLHOF ж 5 (2-5) np 

GOSUB 200: IF 6550 ОВ G>53 THEN 880 

V=(G-48) #5:PRINT CHRS(G)5" * 5 ="; 4 

PRINT "WILT U DE DOOLHOF ZIEN GROEIEN (J/N) "3 
GOSUB 266: IF 6=74 OR G=104 THEN 1699 

IF G=78 OR 6=119 THEN COLORG 0 9 9 @:GOTO 1000 
GOTO 910 

КЕМ *#* DOOLHOF-GENERATOR (GEWIJZIGDE VERSIE UIT 
REM *** NOS-HOBBYSCOOP UITZENDING VAN 26-6-1983) 
PRINT CHR$(G):PRINT TAB (10) ; "EVEN GEDULD oU. Bing 
=H*2—2:N=V*2-2:DIM ВОМ, №) : X=INT (H/2) +2 

XP=INT { (71-М) /2) -1: YP=INT ( 52-М) /23-2 
Y=INT(V/2)*2:D(X,Y)=9:FILL XP,YP+1 ХР+М+2, УР+М+$ 21 
T=6: R1=0: R2=0: R3=@: R4=@ 

IF X+2>M THEN 1100 

IF D(X+2,¥)<>0 THEN 1100 

DX=2: DY=0: T=T+1:Ri=1 

IF Y+22>N THEN 1130 

IF D(X, ¥+2)<>@ THEN 1130 

DX=0: DY=2: T=T+1:R2=1 

IF Х<2 THEN 1160 

IF D(X-2,¥)<3@ THEN 1169 

DX=-2: DY=0: T=T+i:R3=1 

IF Y<2 THEN 1190 

IF D(X, ¥Y-2)<>@ THEN 1190 

DX=6: DY=—2: T=T+1:R4=1 

IF T=@ THEN 1270 

IF Т<>1 THEN 1340 

КЕМ xe 1 AANSLUITEND HOKJE VRIJ 
D(X+@. S*DX, Y+O. SDV) =1 

DOT XP+(X+@. S¥DX+1), YP+(Y+@.S*DY+1)+1 20 

DOT XP+X+1,YP+¥+2 25: X=X+DX: Y=Y+DY 











DOT XP+X+1,YP+Y+2 22:D(X,Y)=-10*DX-DY:GOTO 1080 

REM +++ GEEN AANSLUITEND HOKJE VRIJ DOE STAP TERUG 

DOT XP+X+1,YP+Y+2 20 

IF D(X,Y)=9 THEN 1420 

BK=D(X,Y): IF ABS(BK)=2 THEN 1320 

X=X+BK/10:GOTO 1330 

Y=Y+BK 

DOT XP+X+1,YP+Y+2 20:GOTO 1060 

КЕМ +++ 21 AANSLUITEND HOKJE VRIJ-KIES ER EEN UIT 

DR=INT (4#RND (1) ) +1 

ON (DR) GOTO 1370, 1390, 1400, 1380 

IF Ri=1 THEN DX=2:DY=0:GO0TO 1220 

IF R4=1 THEN DX=0:DY=-2:G0TO 1220 

IF R2=1 THEN DX=0:DY=2:60T0 1220 

IF R3=1 THEN DX=-2:DY=@:G0TO 1220 

GOTO 1350 

REM жин INGANG EN UITGANG 

COLORG 8 9 19 14:FOR VE=@ TO 2xV STEP 2V 

HO= (ІМТ (HERND (1))+1)#2-1:DOT XP+HO, YP+VE+1 20:МЕХТ VE 

DRAW XP, YP XP, YP+N+4 21:DRAW XP+M+2, YP XP+M+2, YPAN+4 21 

REM жн UW WANDELING 

FOR I=@ TO 3:CL (1) =PEEK (#9E+1) — (#80+ (1910) ) : NEXT 

PRINT CHR$ (12): "WILT U EEN SPOOR ACHTERLATEN (J/N) "$ 

GOSUB 206: It G=74 OR G=106 THEN SK=22:G0T0 2070 

IF 6-78 OR 6-110 THEN SK=20:GOTO 2070 

GOTO 2050 

PRINT Dës (6) : Х=10+ХР: Ү=ҮР:НХ=9: HY=0: T=@ 

SOUND 1 9 15 @ FREG(X+Y+50):DOT X,Y 23:HX=X:HY=Y 

G=GETC: IF G<16 OR G>19 THEN WAIT TIME 3:SOUND OFF :GOTO 2090 
IF G=16 AND SCRN(X,Y+1)<>CL(1) THEN Y=Y+1:IF Y>YP+N+4 THEN Y=YP+N+4 
IF Y=@ THEN 2130 

IF G=17 AND SCRN(X,Y-1)<>CL(1) THEN Y=Y-1:1F Y<YP THEN Y=YP 
IF G=18 AND SCRN(X-1,Y)<>CL(1) THEN Х=Х-1:1Е Х<ХР+1 THEN Х=ХР+1 
IF G=19 AND SCRN(X+1,¥)<>CL(L) THEN Х=Х+1:1Е X>XP4M+3 THEN Х=ХР+М+5 
T=T+1:DOT HX,HY SK 

IF Y=N+4+YP THEN 3000 

GOTO 2080 

REM *** EIND-KEUZE 

DOT X,Y 23:PRINT CHR$(12);"U BENT GESLAAGD !!" 

PRINT "IN EEN TIJD VAN"; T/10.0:" SECONDEN !!" 

PRINT “WILT U NOGMAALS PROBEREN (J/N) "3 

GOSUB 200: 1F 6-78 OR G=110 THEN PRINT CHR$(G):GOTO 4000 

IF G=74 OR G=106 THEN PRINT CHR$(G):GOTO 3070 

GOTO 3040 

PRINT "WILT U DEZELFDE DOOLHOF OF EEN ANDER (D/A) "3 

GOSUB 200:1F 6=68 OR 68-100 THEN PRINT CHR$(G):GOTO 3209 

IF G=65 OR G=97 THEN PRINT CHR$(G):GOTO 800 

GOTO 3080 

REM +++ WIS SPOOR UIT 

DRAW ХР+1,ҮР ХР+М+1, УР 22:DRAW XP+1,YP+N+4 XP+M+1, YP+N+4 22 
FOR X=@ TO M+2:FOR Y=0 TO N+4 

IF SCRN(X+XP, Y+YP)=CL(2) THEN DOT XP+X, YP+Y 20 

МЕХТ: МЕХТ: GOTO 2000 

REM +++ EINDE 

PRINT CHR$(12); TAB(22)5"E I N D E":POKE #75,95 
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** The continuing KEN-DOS story *** (see nr. 14) 





First of all I have to make an apology to those of you who have written 
for more information or even wanted to order a system after the first 
article on KEN-DOS was published. I have not been able to answer all 
letters. I promise,however,that your letter will be answered in the forth- 
comming weeks. You might even have received the information you asked 

for in the past few days. 


When writing the article published in DAInamic nr. 14 , I was confident 
that I would ship the forst units on short notice. I had a working 
prototype,the software performed all right,so what could go wrong ? 
Well,in fact nothing went wrong,but as I discovered a little later 

I had underestimated the problems still to come. From working prototype 
to well designed through-plated pcb is а big step,bigger than I anti- 
cipated it to be at that time. 

Further I decided to make some last minute changes,which caused me to 
redesign part of the pcb as well as rewrite part of the software. 

Anyway, I think the changes I was able to make were well worth the effort. 
Then there were all the administrative problems,specially those involved 
in exporting technical equipment, I had to deal with. It seemed best to 
found a company,which from now on will take over all activities connected 
with KEN-DOS. Name and adress of this company I will give at the bottom 
of this article. As you will surely understand all this took a lot of 
time and caused the relatively long period of silence after first publi- 
cation. 


Below I will give a summary of what the system consistso6f; 


1) Bankselectable EPROMcard. On this EPROMcard is room for 
6!! 16K EPROMS. 2 EPROMS are used for the KEN-DOS орега- 
ting system,while another is reserved for the optional 
CP/M bios.This leaves room for 72K of user EPROMS. 


2) Controller-card for 1-8 drives single-sided,double density 
or 1-4 double-sided,double density drives. 
MAXIMUM STORAGE CAPACITY 3,2MB or + 3.200.000 characters ! 
On request the controller-card can be modified to handle 
8" or micro-drives 


3) One or more diskdrives. 
4) Powersupply with ringcore transformer. This powersupply 
is dimensioned to provide more than enough current for 


two double-sided drives.(storage capacity 1,6 MB) 


5) Metal cabinet to house drive(s),powersupply and controller- 
card 


6) Flatcable with connectors to connect drive(s) and control- 
ler to the DAIpc. 
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7) KEN-DOS operating system in two 8KB EPROMS ore one 16KB 

EPROM. 

This operating system supports both 40 and 80 tracks 

drives in single or double density mode. 

Available to the user are 43 ! commands which can be 

used either in direct mode or from basic programs. 

Commands include : formatting,create and delete files, 
protect disk or file,reading of spe- 
cific tracks or sectors,reading from 
DCR or ordinary cassette and. writing 
to disk as well as the other way around, 
bankselect of EPROM banks. 


8)Manual "HOW TO GET STARTED WITH KEN-DOS" 
This manual contains a brief description of the possibil- 
lities of KEN-DOS and syntax with short example of all 
commands. (a comprehensive manual with programming examples 
will be available later this year) 


Optional CP/M 2.2 bios in EPROM (soon available) 


The whole system comes assembled and tested.You only have place the EPROM- 
card on the bus-connector inside your DAI pc. 

A simple hardware modification has to be made which consists of soldering 
a wire between two points on the DAI pc-board. This is to allow both single 
and double density. Each unit comes with clear instructions how to perform 
this minor modification. 


For more information,prices and conditions of sale,please write or call ; 


For Belgium : MIKROSHOP HAGELAND 
HERSELTSESTEENWEG 103 
3220 AARSCHOT 
BELGIUM 
(TEL : 016 / 56 87 70) 


А11 other countries : MIPI у.о.Е. 
Р.О. ВОХ 40 
1616 ZG HOOGKARSPEL 
THE NETHERLANDS 


Kind regards, 


KENNETH GOOSWIT. 
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In a previous Newsletter, part 1 is published. It describes 
in general the working of the BASIC monitor routine in the 
DAI firmware. This second article will explain some func— 
tions of the monitor in detail. 


INITIALISATION (#С80С-#С845) : 


The monitor routine can be entered on different entrypoints, 
The *normal’ entrypoint is #C818. Here the monitor is entered 
after а reset and here it returns after encoding of a pro- 
gram line and after an "END" Statement in а runned program. 


Other entrypoints before #C818 are #CSOC and #C814. Both are 
addresses to which the monitor returns after finishing the 
execution of certain tasks: 


#CS80C: Return after a “hard-break’: ЖЖЖ BREAK’ is printed 
before the monitor is restarted. 

#0814: Return after a run-time error: the keyboard has to be 
re-defined as input source. 


#С818: Because it is а ‘fresh’ (re)start of the monitor, the 
stackpointer is reset to #F900 (the stack top level), 
and its value is preserved in pointer #0127. This 
pointer is e.g. important if a program has to Бе ге- 
started with a ”СОМТ” after a soft-break. The flag 
for suspended programs — programs which are interrupt- 
ed by а soft-break - is cleared: there are at this 
moment no suspended programs. 


Another entrypoint is #C823. It is used by the monitor itself 
after finishing the execution of a direct command, after a 
soft-break, after *STOP’, etc. 


#С825: The stackpointer is set to the value which is stored 
in the pointer #0127. On entry at #C818 or before this 
has no effect, but if a program run is interrupted by 
а soft-break, then this preserved stackpointer is of 
importance to enable the continuation of the suspend- 
ed program. 


#0827: All pointers indicating some activity are cleared: 
(V1.0) #0100: Current line number. This is the linenumber in 
the BASIC program on which the monitor is busy 
executing the program. 
#0104: Pointer to current loop variable. When running 
a FOR-NEXT loop, this pointer indicates the 
variable which is used in this loop. 
#0113: Stack level at last GOSUB. Used to remember its 
origin when a subroutine is called. 
#0122: Flag for encoding a stored line. It indicates 
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that the monitor is busy with encoding. 
#0117: Flag indicating that ап ’ INPUT’ -statement іп 
a program is being executed. 
#0118: Flag indicating that a BASIC prgram is being 
runned. 


In BASIC V1.1, an update is made. Before resetting all the 
pointers mentioned above, the keyboard pointers are reset: 
the key input buffer is cleared to avoid keybounce via a 
CALL to #0565. 


#C840: The keyboard interrupts are enabled as well as the 
clock interrupts in order to have an accessible key— 
board and to have outputs to the screen. 


Now the monitor is initialised and ready to handle direct 
commands or program lines to be stored in the textbuffer. 


ENCODING OF DIRECT COMMANDS AND PROGRAM LINES: 


Any direct command and any program line typed in has to be 
translated into the code which can be understood by the BASIC 
run-time execution module. In other words: A conversion must 
be made to the code which is required for storage in the 
textbuffer. See Newsletter 11, page 196 for more details on 
this pseudo-code. 


This conversion is required both for direct commands and for 
textlines to be stored. In both cases, the conversion is done 
via the encoded input buffer EBUF (#013E-#O1BD). In this 
buffer, from #013F onwards, the encoded line is put together 
in bits and pieces by the BASIC encoding routines. When done, 
the length of the command line is stored іп #015Е. 


After encoding, a direct command line (that means a command 
or a line without a linenumber) remains in the EBUF and is 
executed immediately. A program line (a line with a line 
number) is stored in the textbuffer. 


The source for encoding a textline can be different. It is 
determined by the encoding input switch #0135: 


#00: Input source is the keyboard or a user defined 
input routine DINC. 

#01: Inputs from a string. 

#02: The editbuffer is the source to get input lines 
from. 


Values for #0135 >2 are invalid and may cause problems (see 
part 1 of this series). 


For a clear view on how encoding proceeds, let's examine 


the encoding of a program line. This routine can be found 
on #0918. 
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#0918: 


#C91B: 


#C91D: 


#C729: 


#C92B: 
#C93C: 


#5Е024 


#56051 


#5Е055 


#55040 
#36042 


#SEO4A 


The DAI BASIC monitor — part 2 page 3 


The HL register pair is loaded with the startaddress 
of the EBUF, the location where to store (parts of) 
the line when it is encoded. 
Via RST1/03 the line number is encoded: 
#ЗЕ72А: The first character is taken from the input 
#SE731: source (depending on #0135). Via #CO24, the 
linenumber - іп ASCII-code — is read from the 
input line into the math.accumulator MACC in 
а binary form. If the line number is <>0 and 
not >#FFFF, then it is moved into the EBUF at 
the first 2 locations and the EBUF input 
pointer (HL) is updated. 
If the line number is incorrect, the error 
message "NUMBER OUT OF RANGE’ is printed and 
the encoding is aborted: the monitor is ге- 
started. 
If in the input line, the line number is followed by 
a “СН” only, then the line with the same line number 
is deleted from the textbuffer via #С9А2 and the en- 
coding is done. 
If BASIC statements follow the line number, these 
statements are encoded as well. 
A mask (#40) is loaded into the D-register. This mask 
indicates a *stored command’. If this mask is #80, it 
is used for a direct command (see #C86D). The mask is 
used for testing if the BASIC-command is correctly 
used, because not all commands are valid as direct 
commands or as commands used in a program (see table 
#CBBF). 
Now the program line will be encoded via a CALL to 
#С95С. At first, the current stackpointer is preser— 
ved in #011D. This is important to be able to return 
to the point where the encoding starts in case a 
failure might occur during the encoding of the 
input line. The flag #0122 is set to indicate that 
the monitor is busy encoding a line, and the encoding 
of the line is executed via RST1/00: а call to ROM- 
bank 3, to #5Е024. 


After putting an address on stack for returning after 
an encoding routine is finished, this routine searches 
the table #СВВЕ to find a match with the BASIC-command 
in the input line. If it is found, the code for this 
particular command is verified with the mask in the 
D-register to see if it is a valid command (error 
"COMMAND INVALID? if not). 

Now the command code is transformed into the token, 
and preserved in the E-register. The address of the 
encoding routine belonging to this BASIC command is 
fetched from the table and put on stack. 

The token is stored in the encoded input buffer EBUF, 
the EBUF pointer is updated via #3E0198, and via the 
RET-instruction the 8080 goes to the encoding routine, 
because its address is the last one on stack. 
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A lot of examples of encoding routines can be found 
from #3E0SF onwards. 


#3E04F When the encoding of a BASIC command is finished, the 
next character is fetched from the input line. 
This can only be a CR — whole input line encoded and 
ready — ог a 73’, else а *SYNTAX ERROR’ is the result. 
In case of "s", the next BASIC command will be encod- 
ed by returning to #56024. 


#C94F: When the whole input line is encoded, the saved input 
line pointer BC and the EBUF input Pointer HL on stack 
are cancelled. They where only saved on stack in case 
of an error found in the input line during encoding. 

#0952: The flag for encoding an input line is cleared. 


#C92E: The length of the encoded input line in the encoded 
input buffer EBUF is stored at its beginning. 

ЯС955: Now the old program line with the same line number — 
if present — is deleted from the textbuffer (#C09A2), 
and the new line is inserted (#C9RD). 


Encoding of a direct command (#C846D-#C87D) is done following 
the same principles. But now the encoded line remains in the 
ERUF with 7007 at the end — indicating the end of the ’pro- 
gram” sand the line is runned immediately. 


(C) — Jan Boerrigter, July 1983 


CORRECTIONS FIRMWARE MANUAL — 2 


= = = = = = — = == = = = = = = = = = = = = = = = = = = = = = 


The following updates can be made in your copy of the DAI pC 
firmware manual: 


#C87F: The B-register is loaded with the first byte of the 
EBUF in case of a direct command line, or with the 
first byte of the text line in the textbuffer in 
case of a stored program line. 


#CBBF: In the header, the type bytes are incorrectly indica- 
ted. 
If bit 6=1, then the command is valid during a program 
run. 
If bit 7=1, then the command can be used in a direct 
command line. 


Jan Boerrigter 
Fabritiusstraat 15 
6174 RG Sweikhuizen 
tel. 04493-2093 


DAInamic 83-19 - 379 





PAGE 01 


002 
003 
004 
005 
006 
007 
008 
009 
910 
011 
012 
013 
014 
015 
016 
O17 
018 
019 
020 
921 
022 
023 
024 
025 
026 
027 
028 
029 
030 
O31 
052 
055 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
055 
054 


бобо 
ADOI 
80046 
A009 
ROOT 
AGOF 
А011 
A012 
A013 
8015 
4018 
ROLA 
8010 
A020 
8025 
A026 
A028 
A02B 
AOZE 
A031 
A034 
A037 
A039 
AOSC 
ПОЗЕ 
#041 
A044 
A047 
ROAA 
AQAD 
8050 
8053 
AOIG 
AOD? 
ROSE 
AÔSE 
8081 
8084 
A066 
4069 





EPROM programmer 2715/2752 
x 
x 
x 
D 
x 
£ 


RICIN 
RICOUT 
AIN 
AOUT 
MONIT 


210142 
CDCSA1 
2112A2 
СрСЗА1 
CDOGED 
EGOF 
17 

17 
FEOS 
СА2ЕАО 
ҒЕ10 
C23FA0 
21ҒҒОЕ 
2204A2 
S2CAA2 
3E20 
32CDA2 
C347A0 
21FF07 
22C4A2 
S2CAA2 
3E10 
32CD42 
C347A0 
OESF 
CDB4EE 
C30CA0 
119023 
CDC8D8 
115022 
CDC8D8 
213BA2 
CDCSA1 
CDOSED 
FE20 
C259A0 
CD3AED 
OESB 
CDB4EE 
CDOGED 


389 - DAInamic 83-19 


INIT 


TYPE 


TYPE32 


ТҮРЕ16 


ERRTYP 


SELCRD 


INSERT 


WAITSP 


PROMPT 


GETCMD 


By А . BEUCKELAERS 
Ellebroecken 1 
2510 Mortsel. 
Tel 037/4496301 


EBU : D3EO RIC inputroutine 

EQU : DSCs RIC outputroutine 

EQU 12390 Kanaal À als input 

EQU :2380 Kanaal B als output 

EQU :ЕА42 terug naar UTility 

ORG : 1000 

LXI H,MES1 pointer message 1 

CALL FNT$ printen message 1 

LXI H, MES2 pointer message 2 

CALL FNT$ printen message 2 

CALL :EDO6 inlezen karakter per klavier 
ANI : OF op nul stellen b7 tot b4 
RAL x4 

RAL 

CPI :8 

JZ ТҮРЕ16 indien 2716 

СРІ 210 indien <> 2732 


JNZ ERRTYP dan fout 

LXI Н, = OF FF indien 2732 

SHLD BUFLEN laden bufferlengte 

STA NMBLK laden aantal blokken 

MVI A, 32 

STA ROMTYP laden Romtype met 32 

JMP SELCRD springen naar selektierout. 
LXI H, :07FF indien 2718 

SHLD BUFLEN zelfde cyclus doorlopen 
STA NMBLK 


MVI 1,15 

STA ROMTYP 

JMP  SELCRD 

MVI Cy “= foutmel dingsroutine 

CALL :EEB4 

JMP TYPE 

LXI D, AIN selekteren kan A als input 


CALL RICOUT 

LXI D, : 2250 deselketeren CS 
CALL RICOUT 

LXI H, MESS pointer op message 3 


CALL PNT$ printen message 
CALL :ED96 wachten op SPACE 
CPI : 20 

JNZ WAITSP 

CALL :ED3A printen "Ar 

MVI С, 'А? 

CALL :EEB4 

CALL :ED06 inlezen bevel 


nn 


"ae: 








PAGE 02. EPROM programmer 2716/2732 


055 A06C 21А9А1 LXI H,CMDTAB 
056 AOGF 23 CMD INX H 
057 A070 BE CMP M 
058 A071 DAB7A1 ac ERROR 
059 А074 23 INX H 
040 A075 5E MOV E,M 
041 A076 23 INX H 
042 8077 56 MOV D,M 
063 A079 С26ЕАО JNZ CMD 
064 A07B EB XCHG 
065 AO7E E? PCHL 
066 + 
067 $ Leesbevel 
068 + 
059 A07D CD83A0 RDCMD CALL READ 
070 8080 C361A0 ЯМР PROMPT 
071 A083 110022 READ LXI D,:2200 
072 A084 CDCSDS CALL RICOUT 
073 А089 210043 ІХІ Н,ВИЕҒЕК 
074 AOBC ЗАСАА2 LDA NMBLK 
075 AOBF 47 MOV BLA 
076 А090 ОЕОО MVI C,:00 
077 AQ92 110022 ІХІ D,:2200 
078 8095 DS NXTBLK PUSH D 
079 8095 CDCEDS CALL RICOUT 
080 А099 110021 LXI D,:2100 
081 А09С DS NEXT PUSH D 
082 A09D CDCSD8 CALL RICOUT 
083 AOAO 1620 MVI 0D,:20 
084 АОА2 CDEODS CALL КІСІМ 
085 AOAS 73 MOV М,Е 
084 ADAG 25 INX H 
087 AOA7 Di POP р 
088 AOAR 15 INX D 
089 AOA? OD DER C 
090 AOAA C29CA0 JN NEXT 
091 AOAD Di РОР р 
092 AOAE 13 INX D 

’ 093 AOAF 05 DCR B 
094 AOBO C295A0 JNZ  NXTBLK 
095 АОВЗ 115022 LXI П,:2250 
096 AOBS CDCBD8 CALL RICOUT 
097 AOB? C9 RET 
098 x 
099 £ Testbevel 
100 x 
101 AOBA CDCOAO TSTCMD CALL TEST 
102 AOBD C341A0 JMP PROMPT 
103 AOCO CD83A0 TEST CALL READ 
104 AOC3 PAC4A2 LHLD BUFLEN 
105 AOCS 25 ` INX H 
106 AOC7 ЕВ XCHG 
107 AOCB 210043 LXI Hy, BUFFER 
108 AOCB 7E NXTTST MOV ALM 
109 AOCC FEFF CPI :ҒЕ 
110 AOCE С2Е?АО JNZ МЕМР 
111 AOD1 25 INX H 
112 AODZ 1B DCX D 
113 AOD3 7B MOV A,E 
114 AOD4 В2 ORA D 
115 AODS С2СВАО JNZ NXTTST 
114 А008 CD3AED CALL :ED3A 
117 AODB 218542 LXI H,MES7 


vergeliiken met tabel 


laden adres routine 


starten routine 


selekteren RIC 


pointer begin buffer 
laden aantal blokken 


byteteller op 0 
laden MSE adres 


laden LSB adres 


selekteren kanaal А 
lezen van 1 byte 

en naar buffer brengen 
bufferpainter ophogen 


adresteller ophogen 
byteteller-i 

volgende byte lezen 
zoniet 

MSB adres +1 
blokkenteller -1 
volgende blok lezen 
zoniet deselekt EPROM 


EPROM lezen 


bufferpointer ор Û 
byte in accu 
vergelijken met FF 
indien niet foutmelding 
indien ja 

lengte -i 

testen op 0 


volgende byte 
print CR LF 
pointer message 7 
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118 
119 
120 
121 
122 
125 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
134 
137 
138 
139 
149 
141 
142 
145 
144 
145 
146 
147 
148 
149 
150 
151 
152 
155 
154 
155 
154 
157 
158 
159 
140 
141 
162 
165 
164 
165 
146 
147 
158 
159 
170 
171 
172 
173 
174 
175 
‘176 
177 
178 
179 
190 


AGDE 
AGEL 
ADE? 
ROES 
ñOES 
AEB 
AQEE 


ROEF 
AOF 
A0F4 
AOFS 
DOE 
АОЕО 
ЛОРА 
AOFE 
АОЕС 


ROFF. 


A100 
6101 
ALD? 
A103 
ALOA 
4105 
A104 
A109 
AIQC 
&10F 
At12 
6115 
A118 
ALIE 
AtiD 
A120 
4125 
А125 
А128 
А12А 
А120 
ALZE 
A130 
8131 
A132 
A133 
A134 
A137 
A138 
AILSA 
Ai5B 
ASE 
A140 
А141 
A144 
A147 
A148 
6149 
A14C 
A14D 
B14E 
A14F 


EPROM programmer 


COCA 
C9 

2157842 
CD3AED 
СОСЗА1 
C361A0 
C9 


0Е05 
CDDEEA 
OD 
F2B7ñ1 
Ci 

Di 

El 

Cs 
22C9A2 
7E 

73 

4F 

7A 

9с 

67 

23 
220602 
22CBA2 
218142 
CD2FED 
118023 
CDC3D8 
3ACDA2 
FE10 
CA2561 
С228А1 
1EAG 
С52АА1 
1EBO 
2АСВА? 
Ci 
1622 
78 

BS 

DE 

DS 
cpcapa 
59 
1621 
DS 
CDC8D8 
1520 
ЗЕ 
срсарв 
CDCDAI 
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2714/2722 


CALL PNTS printenmessage 
RET 
NEMP LXI H, MEGA foutmelding 
CALL :ED3A indien EPROM niet 
CALL PNTE voliedig gewist 
JMP PROMPT 
RET 
£ 
£ Frogrammeerbevel 
k P beginadr eindadr beginadr eprom. 
* 
PGMCMD MVI CA 
CALL :EADE lezen 3 adressen 
DCH OC 
JP ERROR 
POF B beginadres EPROM 
FOP р eindadres EPROM 
POP H beginadres source 
PUSH B 
SHLD SRCBUF naar sourcebuffer 
мау AE berekening lengte 
SUB L 
MOV „А 
MOV ALD 
SBB H 
MOV H,ñ 
ІМХ H 
SHLD LENGTH wegschrijven lengte 
SHLD LENGTE ‚ : 
LXI H,MES10 pointer message 10 
CALL :ED2F printen message 10 
LXI D, ADUT kanaal ñ in output 
CALL RICOUT 
LDA  ROMFYP 
CPI 16 
JZ EPR1& 
JNZ  EPR32 
ЕРК16 MVI E, АО besturingswoord 2716 
JMP 60 | 
EPR32 MI E,: BQ besturingswoord 2732 
50 LHLD SRCBUF laden HL bufferpointer 
POP B beginadres uit stack 
MVI D,:22 laden MSB adres 
MOV A.B 
ORA E 
MOV Е.А 
NXTELC PUSH D 
CALE RICOUT em naar RIC 
MOV Е,С 
ÞVI D,:21 laden LSB adres 
NXTBY PUSH D 
CALL RICOUT en naar RIC 
MVI D,:20 selekteren kanaal À 
MOV E,M programmeren i byte 
CALL RICOUT 
CALL IMPULS programmeer impuls 
INX H 
PUSH H 
LHLD LENGTH lengte -i 
DCX H 
MOV а, 
GRA H | А 
SHLD LENGTH terug wegschri jven 


